38888 


ASAAOAAAOAAAOOOO 
AOOOIOOAOAAOOOOAO 
AOAAAAOAOAOOAONY 


SSSSSSSsss 


AAA AA Ht St tH A 2— 
AAA St A ————— ————— 
AAAS AS a a st st se 


L 

LLLLLLLLLLLLLLL 
LLELLLLLLLLLELLLL 
LLLLLLLLLLLLLLL 


ad 


**F ILE**1D**COBINVUSE 


ww Mas Las 
ww Aad Lad 
wu wu wu 
wu wu wu 
ww wus wus 
wus wu wu 
ww wus ww 
wus wus wus 


nn MMMM 
“wn MMMM 
vwwn nn nn 
nw nw “nn 
nn nn nw 
nn nn nn 
“ww nw nw 
mm mn nw 
MNwWnw “wn 


eae 
5 


3335355533355 


=) 
>>>>>>>>>> 
>>> >>>>>>> 
>> 
>> 
>> 
>> 
>> 
>> 
>>>>>>>>>> 
>>>>>>>>>> 
2 2222222222222 
2222222222 2222 
= 
22 
22 
22 
zz 
22 222222222222 
2222222222 2222 


338383883888 
3888888888 


3888888888 


VWUVUYUYUUYYY 
WYYVYYUUUYU 


LLLLLLLLLL 
LLLLLLLLLL 


f 


0B$$1 E_USE 
able of contents 


og 


Det 
COB 


COBOL Invoke USE Procedure 


TORY ; Detailed Current Edit History 
Leliore 
SINVOKE _USE 


15-SEP-1984 23:45:30 VAX/VMS Macro v04-00 


Page 


| 
| 
0 i 
| 


N 7 
CORSP IIOVORE _USE COBOL Invoke USE Procedure 15-SEP-1984 3:43 +38 AX/VMS Macro * Page 1 
6-SEP-1984 COBRTL.SRCICOBINVUSE .MAR; 1 (1) | 


TITUS COBSS INVOKE. USE COB Invoke USE Procedure 
IDENT /1-004/ 3; File: COBINVUSE.MAR 


SRAAAAHAAAATAAAEAAAAAAAAEAAAAAEAAAAAAAAAAAAAAAAAAACAARAARAAAAEAAAAAAAAAAARAAAEEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*@ ® 
*@ a 
-@ ® 
sf ® 
‘* o 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
:® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:® OTHER PERSON, TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s® TRANSFERRED. . 
*® * 
:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
:®@ AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:® CORPORATION. : 
:@ ® 
*® ® 
°® * 
:* * 
2* 
2* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; FACILITY: COBOL SUPPORT 


"ABSTRACT 
This module contains the routine that invokes a COBOL USE procedure. 


VERSION: 1 
HISTORY: 


AUTHOR: 
Marty Jack, 2-May-1979 


MODIFIED BY: 
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¢ -SBTTL HISTORY : Detailed Current Edit History 


; Edit History for Version 1 of COBINVUSE 
1-30¢ - Original. MLJ 22-May-1979 
8 - Change entry po nt name to COBS$SINVOKE_USE 
- A n nec os ve activation’ directly. Cosmetic changes. | 


1-004 - Signaliin 9 should be "Recursive activation of USE procedure’ 
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DECLARAT 1ONS 6-SEP=1984 3 COBRTL.SRCJCOBINVUSE .MAR; 1 ° 3) 
$9 -SBTTL DECLARATIONS 
62 ; 
8 tee FILES: 
64 SFDEF 
0 65 
0 $8 3 
67 ; EXTERNAL SYMBOLS: 
3 08 DISABLE GB 
§ eEXTRN LIBSSTOP : Signal a condition and stop 
0 0 eEXTRN COBSHANDLER ; COBOL erceps ren handler 
B88 71 -EXTRN COBS_USE_EXIT  ; spec ial COBOL exception for USE EXIT 
i; ~-EXTRN COBS-RECACTUSE ; Recursive activation of USE procedure 
000 7 ~-EXTRN LIBSSIGNAL : Signal a condition 
000 74 -EXTRN LIBSSTOP : Signal a condition and stop 
4 8 -EXTRN OTSS_FATINTERR ; Fatal internal error 
000 6 3 
0000 78 ; MACROS: 
000 79 ; NON 
000 80 ; 
000 1 
88 
000 3; PSECT DECLARATIONS: 
—8 -PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 
$090 86 ; 
0000 7 ; EQUATED SYMBOLS: 
0000 8 ; 
0000 9; NONE 
0000 90 ; 
0000 91 ; OWN STORAGE: 
0000 3 : NONE 
0000 93 ; 
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-SBTTL COBSSINVOKE_USE 


FUNCTIONAL DESCRIPTION: 

This routine invokes a COBOL USE procedure. 
CALLING SEQUENCE: 

COBSSINVOKE_USE (proc.rl.v, uselist.rl.v, apval.rl.v, eopr.mg.r, pnc.ml.r) 
INPUT PARAMETERS: 


COOOCOOCOOCOCOOSCOCOOCSoS 2 
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Sooooooooooeo 
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PROC. rl.v The address of the USE procedure 
USELIST.rl.v The address of the USE list of the program 
in which the original quceps ven was detected 
0 APVAL.rl.v The AP of the program in which the original 
8 exception was detected 
IMPLICIT INPUTS: 
: NONE 
; OUTPUT PARAMETERS: 
0 EOPR.mq.r The end of perform renee block for the USE 
0 rocedure to be invoked. 
0 PNC.ml.r + porrere nest counter for the module in 
whic 


the USE procedure is contained. 
IMPLICIT OUTPUTS: ; 
NONE 
FUNCTION VALUE: 
NONE 
SIDE EFFECTS: 
The USE procedure is executed. 


Be Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge He Ge Ge Se Ge Ge Se Se Ge Se Ge Ge Ge Se Ge Ge Se Se Se Se Ge Ge Se Ge Se Se Ge 
t 
iy 


OF FC -ENTRY COBSSINVO - 
‘ R6,R7,R8B,R9,R10,R11> 
; ALL registers MUST be saved since 


3; the USE procedure will not. 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — —— — — — ee — — — — — — 


⏑ä—⏑—⏑—⏑⏑ ⏑——⏑ —⏑——————————————— 


MAMIMNTMININININNNOOOCCOOOCOCOOOOooooooa 


SOoOSOOSOCSOSOSOOSOSOOOSOOSOOOOSOSOSOOSOOoOoOSoSo 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


—E 8 
COBSSINVOKE _USE COBOL Invoke USE Procedure 15-SEP-1984 23:45: AX/VMS Macro v04-00 Page 
1-004 COBSSINV KE_USE 5-86-1383 ; 43:88 LCOBRTL. SREICOBINVUSE .MAR: 1 ° 
; Load most parameters into registers. The USE-list pointer goes to -4(FP) 
; and the AP value goes to AP. Note that after this point, the argument 
3; list **8 be accessed, since AP has been modified. The effect of this 
; code is that the USE procedure will be executed with the same AP and the 
; same USE-List as the routine that raised the exception originally. 
50 10 AC 00 0 , MOVL  eopr (AP) ,RO ; Address of end of perform block 
1 WAC OD 0 MOVL pnc (AP), R1 : Address of perform nest counter 
52 04 AC 00 000 MOVL  proc(APS,R2 ; Address of USE procedure 
8 AC DD 000 PUSHL uselist(AP) ; USE-list address to -4(FP) 
5c OC AC DO : MOVL apval (AP) ,AP 3; AP value to AP 
01 3+ 
01 ; Ensure that the USE procedure is inactive. If it is active, signal an 
4 3 error. 
60 rf 001 TSTL (RO) : Test for nonzero return address 
0D 13 001 BEQL 1$ ; Br if inactive 
00000000°8F DD 001 PUSHL #COBS_RECACTUSE ; Recursive activation of USE procedure 
00000000'GF 01 FB 991 CALLS #1, G*LIBSSTOP ; 
0 3+ 
0 ; Establish COBSHANDLER as the handler. This is necessary so that (1) it will 
0 3 get control if an exception occurs during execution of the USE procedure and 
0 : (2) so that COBSIOEXCEPTION will recognize that -4(FP) contains a va 


6D  00000000'GF 9 jar MOVAB —_ G*COBSHANDLER, (FP) 
e 


POTMIPOPOPURoPOR Ponny 


PUSHL SFSL_SAVE_PC(FP) ; Push return PC on s 


10 AD tack 
10 AD 46'AF 9E MOVAB B*108,SFSC_SAVE_PC(FP) ; Overwrite with handler address 


30 
3; Invoke the USE procedure using the PERFORM invocation code. 


61 07 DECL (R1) : Decrement the perverse nest counter 
04 AO 61 00 MOVL (R1),4(RO) 3; Move it to EOPR bloc 
60 41°AF 9 MOVAB Sl 3 Move exit address to EOPR block 
62 JMP (R2) ; Go to USE procedure 
3¢ 
:; If control reaches this point, the USE procedure terminated by enecut tog 
; the end of perform range. Restore the return address, and execute a RE 
3; to return to COBSIOEXCEPTION. 
10 AD 8E 8 28: MOVL (SP)+,SFSL_SAVE_PC(FP) ; Restore return address 
4 RET ; Return 


> 
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If control reaches this point, the USE procedure terminated by executing 
an EXIT PROGRAM. (Note also that this removed the stack frame that we were 
executing in, and we are now executing in the frame of COBSIOEXCEPTION.) 
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COBSS INVOKE _USE COBOL Invoke USE Procedure 
Symbol table 
APVA = 000000 
COBSSINVOKE_USE 89000906 RG 
COBSHANDLER ateereee § xX 
COBS_RECACTUSE ‘eeeeeee Xx 
COBS_USE_EXIT ereereee 86x 0 
EOPR 00000010 
LIBSSIGNAL ereeeere 110 
LIBSSTOP eeeeeeee Xx 88 
OTSS_FATINTERR teenenee 1 0 
PNC = 00000014 
PROC = 00000004 
SFSL_SAVE_PC = BOR OF 
USELTST = 0000000 
¢ eens wwe eno ececoce + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. . 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL 
SABSS 00000000 0.) 8s ( 1.) NOPIC USR CON ABS LCL 
_COBSCODE 00000060 ( 96.) 02 ¢ 2.) PIC USR CON REL LCL 


Phase Page faults CPU Time Elapsed Time 
Initialization 30 80:00:00 .03 00:00:00.96 
Command processing 115 i bf § —888134 
Pass 112 00:00:00.6 —8383 -60 
Symbol table sort 0 00:00:00.01 0:00:00.01 
Pass 2 54 888 — 88838 
Symbol table output 3 00:00:00.01 00:00:00.1 
Psect synopsis output 2 00:00:00.0 00:00:00.02 
Cross-reference output 0 ae Soa BS 00:00:00.00 
Assembler run totals 318 00:00:01. 00:00:11.48 


The working set Limit was 1050 pages. 

4095 bytes (8 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 41 non-local and 3 local symbols. 
18 source Lines were read in Pass 1, produc ing 13 object records in Pass 2. 
pages of virtual memory were used to define 7 macros. 


SSE Pee eR Bonen moma rene 2 


Macro library name 
~$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
88 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 
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NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE RD WRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC LONG 


VAK=1 Macré- * Statistics COBRTL.SRCJCOBINVUSE .MAR; 1 


MACRO/ENABLE=SUPPRESSION/D 1 SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$: COBINVUSE/0BJ=0BJ$:COBINVUSE MSRC$:COBINVUSE/UPDATE=(ENHS$ : COBINVUSE ) 
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